home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / edebug / edebug-xemacs.el < prev    next >
Encoding:
Text File  |  1994-09-20  |  1.9 KB  |  57 lines
  1. ;; edebug-xemacs.el  -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*- ;; 
  2. ;; Date: Fri, 26 Mar 93 18:03:24 +0100
  3. ;; From: Guido Bosch <Guido.Bosch@loria.fr>
  4.  
  5. (defvar edebug-mode-menu
  6.   '("Edebug Commands"
  7.     "----"
  8.     ["Step" edebug-step-mode t] ;; was edebug-step-through-mode
  9.     ["Next" edebug-next-mode t]
  10.     ["Trace" edebug-trace-mode t]
  11.     ["Continue" edebug-continue-mode t]
  12.     ["Go" edebug-go-mode t]
  13.     ["Stop" edebug-stop t]
  14.     "----"
  15.     ("More Motion"
  16.      ["Trace Fast" edebug-Trace-fast-mode t]
  17.      ["Continue Fast" edebug-Continue-fast-mode t]
  18.      ["Go Nonstop" edebug-Go-nonstop-mode t]
  19.      "----"
  20.      ["Forward Sexp" edebug-forward-sexp t]
  21.      ["Step In" edebug-step-in t] 
  22.      ["Step Out" edebug-step-out t]
  23.      ["Goto Here" edebug-goto-here t])
  24.     ("Breakpoints"
  25.      ["Set Breakpoint" edebug-set-breakpoint t]
  26.      ["Unset Breakpoint" edebug-unset-breakpoint t]
  27.      ["Set Conditional Breakpoint" edebug-set-conditional-breakpoint t]
  28.      ["Set Global Break Condition" edebug-set-global-break-condition t]
  29.      ["Show Next Breakpoint" edebug-next-breakpoint t])
  30.     ("Examinating"
  31.      ["Previous Result" edebug-previous-result t]
  32.      ["Bounce Point" edebug-bounce-point t]
  33.      ["View Outside" edebug-view-outside t]
  34.      ["Toggle Save Windows" edebug-toggle-save-windows t]
  35.      ["Eval Expression" edebug-eval-expression t]
  36.      ["Eval Last Sexp" edebug-eval-last-sexp t]
  37.      ["Show Backtrace" edebug-backtrace t])
  38.     ("Miscellaneous"
  39.      ;; ["Help" edebug-help t]
  40.      ["Where" edebug-where t]
  41.      ["Display Freq Count" edebug-display-freq-count t]
  42.      ["Visit Eval List" edebug-visit-eval-list t])
  43.     "----"
  44.     ["Top Level"  top-level t]
  45.     ["Top Level Nonstop" edebug-top-level-nonstop t]
  46.     ["Abort" abort-recursive-edit t]
  47.     ))
  48.  
  49.  
  50. (defun edebug-mode-menu (event)
  51.   (interactive "@e")
  52.   (popup-menu edebug-mode-menu))
  53.  
  54. (define-key edebug-mode-map 'button3 'edebug-mode-menu)    
  55.  
  56. (provide 'edebug-xemacs)
  57.